home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbsecex / secex1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  2.2 KB  |  74 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "SECRITY EXAMPLE"
  5.    ClientHeight    =   3180
  6.    ClientLeft      =   60
  7.    ClientTop       =   1485
  8.    ClientWidth     =   9510
  9.    ControlBox      =   0   'False
  10.    Height          =   3585
  11.    Left            =   0
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3180
  16.    ScaleWidth      =   9510
  17.    Top             =   1140
  18.    Width           =   9630
  19.    Begin CommandButton Command1 
  20.       Caption         =   "RUN EXAMPLE"
  21.       FontBold        =   -1  'True
  22.       FontItalic      =   0   'False
  23.       FontName        =   "Futura Md BT"
  24.       FontSize        =   75
  25.       FontStrikethru  =   0   'False
  26.       FontUnderline   =   0   'False
  27.       Height          =   2175
  28.       Left            =   120
  29.       TabIndex        =   0
  30.       Top             =   720
  31.       Width           =   9255
  32.    End
  33. Sub Command1_Click ()
  34.     Randomize Timer
  35.     A# = Int((10 - 1 + 1) * Rnd + 1)
  36.     Select Case A#
  37.         
  38.         Case Is = 1
  39.             FORM2.Text2.Text = "TRIVIA"
  40.             FORM2.Text3.Text = "AA1"
  41.         Case Is = 2
  42.             FORM2.Text2.Text = "MILLER"
  43.             FORM2.Text3.Text = "AA2"
  44.         Case Is = 3
  45.             FORM2.Text2.Text = "DODO"
  46.             FORM2.Text3.Text = "AA3"
  47.         Case Is = 4
  48.             FORM2.Text2.Text = "COMPUTER"
  49.             FORM2.Text3.Text = "AA4"
  50.         Case Is = 5
  51.             FORM2.Text2.Text = "BILL"
  52.             FORM2.Text3.Text = "AA5"
  53.         Case Is = 6
  54.             FORM2.Text2.Text = "WILLIAM"
  55.             FORM2.Text3.Text = "AA6"
  56.         
  57.         Case Is = 7
  58.             FORM2.Text2.Text = "386"
  59.             FORM2.Text3.Text = "AA7"
  60.         Case Is = 8
  61.             FORM2.Text2.Text = "SUPER"
  62.             FORM2.Text3.Text = "AA8"
  63.         Case Is = 9
  64.             FORM2.Text2.Text = "WORLD PEACE"
  65.             FORM2.Text3.Text = "AA9"
  66.         
  67.         Case Is = 10
  68.             FORM2.Text2.Text = "SPACE"
  69.             FORM2.Text3.Text = "A10"
  70.        End Select
  71.     FORM2.Show
  72.     FORM1.Hide
  73. End Sub
  74.